EnigmA Amiga Run 1997 February/EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso/planetkit/win3/trumpet/login.cmd

OS/2 REXX Batch file | 1996-06-13 | 1KB | 51 lines

#trace on
if ![load $number]
  if [query $number "Enter your dial up phone number"]
    save $number
  end
end
if ![load $username]
  if [username "Inserisci il tuo Author ID (Username)"]
    save $username
  end
end
if ![load $password]
  if [password "Inserisci la tua password"]
    save $password
  end
end
#-------------------- STRINGA DI INIZIALIZZAZIONE ---------
$modemsetup = "&fx3"
#----------------------------------------------------------
$prompt = ">"
$userprompt = "ogin:"
$addrtarg = "Il tuo indirizzo TCP/IP è:"
$pppcmd = "ppp"
$pap = "~"

%attempts = 10

output "atz"\13
if ! [input 10 OK\n]
  display "Modem is not responding"\n
  abort
end
output "at"$modemsetup\13
input 10 OK\n
%n = 0
repeat
  if %n = %attempts
    display "Too many dial attempts"\n
    abort
  end
  output "atdt"$number\13
  %ok = [input 60 CONNECT]
  %n = %n + 1
until %ok
input 10 \n
wait 30 dcd
output \13
input 30 $userprompt
sleep 1
output "ppp"\13
input 10 $pap